home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / quicspool / libqmsquery / qmsopclex.l < prev    next >
Text File  |  1990-10-01  |  584b  |  29 lines
  1. /* $Header: qmsopclex.l,v 1.1 88/01/15 12:19:11 simpson Rel $
  2. %{
  3. /*
  4. $Log:    qmsopclex.l,v $
  5.  * Revision 1.1  88/01/15  12:19:11  simpson
  6.  * initial release
  7.  * 
  8.  * Revision 0.1  87/12/11  21:34:46  simpson
  9.  * beta test
  10.  * 
  11. */
  12. #undef input
  13. #define input()    (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \
  14.     ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar)
  15. %}
  16. integer    [0-9]+
  17. %%
  18. OC[1-5]:    {
  19.             yylval.i = yytext[2] - '0';
  20.             return OC;
  21.         }
  22. {integer}    {
  23.             yylval.i = atoi(yytext);
  24.             return INTEGER;
  25.         }
  26. \,        return yytext[0];
  27. NONE        return NONE;
  28. \r\n        return ENDLINE;
  29.